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B/A Subroutine £00i* INTF(X) 

SUBROUTINE INTF(X) 

Subroutine INTF(X) obtains the integral portion of the 
floating number X contained in A,R upon entering y the integral portion 
I(X) is contained in A,R when exiting from the subroutine. 

The subroutine uses 21 fl storages, is relocatable, and 
uses both L and V loops. (The previous contents of L and V are destroyed*) 
A relocatable tape with matrix is available. 



CALLING SEQUENCE-. FCA X 

A TRA INTF 
A +.1 RETURN 



Location A is not restricted to either half word. 
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SUBROUTINE INTF(X) 

This subroutine obtains the integral portion of a floating 

number X in floating number form. Let us represent the number X as 

E 
X ■* F« 2 ♦ The quantity E is examined ♦ 

If B 1- | • X^ 1 hence F has no integral part* 

B - 39 , ' F is "pure" integral. 

* E -* 39 $ F is part integer, part fraction. 

The program examines E, creates a number Q with l ! s in its first to E 
positions. By use of the extract command a comparison of F and Q is 

made which separates the integer portion of X from F» 



b/a program 500U 



SUBROUTINE INTF 



: +0000000-0000000) 

+61*00000+6600100 
+1577760+5777620 
+0160160+4277731 
+11300000+6077770 
+50777^0+51777^0 
+0000170+0377770 
+5077730+51x77730 
+4100010+4277701 
+0000 150+^.1 00000 

+6077750+0077760 

+3377750+6077760 
+3077760+5700000 
+3000200+5777731 
+-777777 1 +-777777 1 
+0000000-0060001 
+0000000-0000231 
+0000000-0000000 
+0000000-0000000 



2+0000000-0037770) 

+0000000-0000216 

+0000001-0000001 

+0000000-0000000 

+0000001-0000000 

+0000000-0000000 

+0000000-0000000 

+0000001-0000000 

+0000000-0000000 

+0000000-0000000 

+0000001-0000000 

+0000000-0000000 

+0000000-0000000 

+0000000-0000000 

+0000001-0000000 

+0000000-0000000 

+0000000-0000000 

+0000000-0000000 

+0000000-0000000 

+0000000-0000000 
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